Private Sub btn_Click()

    Dim  As String
    Dim  As Variant

     = "׸ (*.jpg;*.png), *.jpg;*.png"

     = Application.GetOpenFilename(FileFilter:=, Title:="׸ ")

    If  <> False Then
    
        txt = 
    
    End If

End Sub